home *** CD-ROM | disk | FTP | other *** search
/ Transactor / Transactor_22_1988_Transactor_Publishing.d64 / load & run (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  1KB  |  58 lines
  1. 100 rem save"0:load & run",8
  2. 110 rem ** rte/87
  3. 120 rem ** a load and run introduction
  4. 130 rem ** for all commodore machines.
  5. 140 :
  6. 150 dv=8: rem disk device #
  7. 160 pd=4: rem printer device #
  8. 170 cls$=chr$(147): txt$=chr$(14)
  9. 180 print cls$;txt$;
  10. 190 print "[212]ransactor [208]ublishing [201]nc."
  11. 200 print "85 [215]est [215]ilmot [211]treet, #10"
  12. 210 print "[210]ichmond [200]ill, [207]ntario"
  13. 220 print "[195][193][206][193][196][193]  [204]4[194] 1[203]7"
  14. 230 print "telephone (416) 764-5273"
  15. 240 print
  16. 250 print "[201]nsert your favourite boot"
  17. 260 print "program here."
  18. 270 print
  19. 280 input "[214]iew [196]irectory (y/n) ";vd$
  20. 290 if vd$="n" then 400
  21. 300 if vd$<>"y" then 280
  22. 310 :
  23. 320 open 8,dv,0,"$0"
  24. 330 get#8,a$,a$: rem trash bytes
  25. 340 get#8,a$,a$,a$,a1$: if st then close8: goto 400
  26. 350 print asc(a$+chr$(0))+256*asc(a1$+chr$(0));
  27. 360 get#8,a$: if a$<>"" then print a$;: goto 360
  28. 370 print: goto 340
  29. 380 :
  30. 390 rem ** more info **
  31. 400 print
  32. 410 print "[215]ould you like to know more"
  33. 420 input "about [212]ransactor [205]agazine (y/n) ";yn$
  34. 430 if yn$="n" then 500
  35. 440 if yn$<>"y" then 400
  36. 450 :
  37. 460 open 8,dv,8,"0:[210][213][206] [205][197] [212][197][216][212]"
  38. 470 for x=0 to 1: input#8,a$: print a$: x=st: next: close8
  39. 480 :
  40. 490 rem ** sub form **
  41. 500 print
  42. 510 print "[215]ould you like to print out"
  43. 520 input "a subscription form (y/n) ";yn$
  44. 530 if yn$="n" then 630
  45. 540 if yn$<>"y" then 500
  46. 550 :
  47. 560 print "* [210]eady [208]rinter & [208]ress [193] [203]ey *"
  48. 570 get a$: if a$="" then 570
  49. 580 open 4,pd: rem pd=printer device #
  50. 590 open 8,dv,8,"0:[210][213][206] [205][197] [198][207][210][205]"
  51. 600 for x=0 to 1: input#8,a$: x=st: print#4,a$: next: close8: close4
  52. 610 :
  53. 620 rem ** bye **
  54. 630 print cls$
  55. 640 print "[212]hank you for supporting"
  56. 650 print "[212]ransactor [205]agazine"
  57. 660 end
  58.